100 PRINT "Reading..."
200 READ i
300 READ q%
400 READ s$
500 PRINT i * 100 "% of " s$ " is " q%
600 READ i
700 PRINT i
800 RESTORE
900 READ i
1000 PRINT i
1100 READ i
1200 print "i is int " i
1300 READ a$, i
9990 PRINT "OK"
9991 REM This would be out of data
9992 REM READ i
10000 DATA 1.001, 42, "The Answer..."
10100 DATA -99.1
list
run